﻿Imports DMC.Database
Imports prjLichSuXemBienBanXetDuyet
Public Class frmLichSuXemBienBanXetDuyet
    Dim strMaHoSoCapGCN As String = ""
    Dim strMaDonViHanhChinh As String = ""
    Private Property HoSoCapGCN()
        Get
            Return strMaHoSoCapGCN
        End Get
        Set(ByVal value)
            strMaHoSoCapGCN = value
        End Set
    End Property
    Private Property DonViHanhChinh()
        Get
            Return strMaDonViHanhChinh
        End Get
        Set(ByVal value)
            strMaDonViHanhChinh = value
        End Set
    End Property
    'Private strconnection As String = ""
    'Private Property Connection()
    '    Get
    '        Return strconnection
    '    End Get
    '    Set(ByVal value)
    '        strconnection = value
    '    End Set
    'End Property
    Private Sub frmLichSuXemBienBanXetDuyet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'strconnection = mdlMain.GetConnection(True)
        'Dim cls As New prjLichSuXemBienBanXetDuyet.clsLichSuXemBienBanXetDuyet
        'cls.Connection = strconnection
        Try
            HoSoCapGCN = frmNghiepVuHoSo.CtrlNghiepVuHoSo1.MaHoSoCapGCN.ToString()
            DonViHanhChinh = User.DonViHanhChinhHienThoi.ToString()
            'MessageBox.Show(HoSoCapGCN, DonViHanhChinh)
        Catch ex As Exception

        End Try
        Me.XemLichSuHoSoBienDong1.HienThiData()
        Me.XemLichSuHoSoBienDong1.DinhDangGirdview()
        Me.XemLichSuHoSoBienDong1.HoSoCapGCNcu = HoSoCapGCN
        Me.XemLichSuHoSoBienDong1.LoadGird()       
    End Sub
    Private Sub XemLichSuHoSoBienDong1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XemLichSuHoSoBienDong1.Load
    End Sub
End Class